home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb21.arc / CLRAREA.SRC < prev    next >
Encoding:
Text File  |  1985-06-09  |  120 b   |  8 lines
  1. PROCEDURE CLEAR_REGION(X1,Y1,X2,Y2 : INTEGER);
  2.  
  3. BEGIN
  4.   WINDOW(X1,Y1,X2,Y2);
  5.   CLRSCR;
  6.   WINDOW(1,1,80,25)
  7. END;
  8.